home *** CD-ROM | disk | FTP | other *** search
/ Gekkan Dennou Club 147 / Gekkan Dennou Club - 2000.8 Vol. 147 (Japan).7z / Gekkan Dennou Club - 2000.8 Vol. 147 (Japan) (Track 1).bin / docs / complex / mandel.bat < prev    next >
DOS Batch File  |  2000-07-08  |  1KB  |  35 lines
  1. echo off
  2.  
  3. kt echo "マンデルブロ集合を表示します。パラメータを入力して下さい。\n"
  4.  
  5. kt input reMin "実部最小 = " "-2"
  6. if "%reMin%" == "" goto exit
  7. kt input imMax "虚部最大 = " "2"
  8. if "%imMax%" == "" goto exit
  9. kt input scLen "辺の長さ = " "4"
  10. if "%scLen%" == "" goto exit
  11. kt input scSize "画面サイズ(0…256×256ドット, 1…512×512ドット) = " "0"
  12. if "%scSize%" == "" goto exit
  13. kt input mxCnt "回数制限(1～65535) = " "256"
  14. if "%mxCnt%" == "" goto exit
  15.  
  16. kt .machine
  17. kt .select - MC68000 %machine%||if errorlevel 1 set type=000||goto run
  18. kt .select - FPCP %machine%||if errorlevel 1 set type=881||goto run
  19. kt .select - MC68030 %machine%||if errorlevel 1 set type=020||goto run
  20. kt .select - MC68040 %machine%||if errorlevel 1 set type=040||goto run
  21. kt .select - MC68060 %machine%||if errorlevel 1 set type=040||goto run
  22. set type=000
  23.  
  24. :run
  25. %type%\mandel %reMin% %imMax% %scLen% %scSize% %mxCnt%
  26.  
  27. :exit
  28. set reMin=
  29. set imMax=
  30. set scLen=
  31. set scSize=
  32. set mxCnt=
  33. set type=
  34. set machine=
  35.